0 A$="8E620B8602A78033CC14EF8133CC1FEF81308C29AFC8FC308C2CAFC8FE39504F494ED443F554C4555D20000000080D6810225037E07F3308CF07E2B38B6E7C38A01B7E7C339B6E7C384FEB7E7C339":CLS:SCREEN4,6,6:PRINT"FONCTIONS POINT/COULEUR","COMMUTATION DE LA MEMOIRE ECRAN",
1 PRINT"COPYRIGHT BY FABRICE":PRINT:COLOR,,1:PRINT"IMPLANTATION:";:COLOR,,1:INPUT"&H",X$:X=VAL("&H"+X$):FORT=1TO79:POKEX+T-1,VAL("&H"+MID$(A$,T*2-1,2)):NEXT:EXECX:CLEAR,X-1